﻿Imports Lucene.Net.Index

Namespace Aricie.DNN.Modules.LuceneSearch.Business
    Public Class TermInfo
        Public Sub New(ByVal term As Term, ByVal docfreq As Integer)
            Me._Term = term
            Me._DocFrequency = docfreq
        End Sub

        Private _Term As Term
        Private _DocFrequency As Integer


        Public Property Term() As Term
            Get
                Return _Term
            End Get
            Set(ByVal value As Term)
                _Term = value
            End Set
        End Property

        Public Property DocFrequency() As Integer
            Get
                Return _DocFrequency
            End Get
            Set(ByVal value As Integer)
                _DocFrequency = value
            End Set
        End Property

        Public ReadOnly Property Text() As String
            Get
                Return Term.Text
            End Get
        End Property
    End Class
End Namespace


